home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 3.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '1 REM PRINT SHOP LABEL MAKER
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 20 20 50 | 52 49 4e 54 20 53 48 4f |1 REM P|RINT SHO|
|00000010| 50 20 4c 41 42 45 4c 20 | 4d 41 4b 45 52 0a 32 20 |P LABEL |MAKER.2 |
|00000020| 52 45 4d 20 20 42 59 20 | 42 52 49 41 4e 20 48 45 |REM BY |BRIAN HE|
|00000030| 59 42 4f 45 52 20 20 31 | 32 2f 31 2f 38 35 0a 33 |YBOER 1|2/1/85.3|
|00000040| 20 52 45 4d 20 20 54 48 | 49 53 20 50 52 4f 47 52 | REM TH|IS PROGR|
|00000050| 41 4d 20 49 53 20 50 55 | 42 4c 49 43 20 44 4f 4d |AM IS PU|BLIC DOM|
|00000060| 41 49 4e 2e 0a 34 20 52 | 45 4d 20 20 54 48 49 53 |AIN..4 R|EM THIS|
|00000070| 20 50 52 4f 47 52 41 4d | 20 43 4f 4e 54 41 49 4e | PROGRAM| CONTAIN|
|00000080| 53 20 42 41 53 49 43 20 | 41 4e 44 0a 35 20 52 45 |S BASIC |AND.5 RE|
|00000090| 4d 20 20 4d 41 43 48 49 | 4e 45 20 4c 41 4e 47 55 |M MACHI|NE LANGU|
|000000a0| 41 47 45 2e 20 20 45 44 | 49 54 49 4e 47 20 4f 52 |AGE. ED|ITING OR|
|000000b0| 0a 36 20 52 45 4d 20 20 | 4f 54 48 45 52 57 49 53 |.6 REM |OTHERWIS|
|000000c0| 45 20 43 48 41 4e 47 49 | 4e 47 20 50 4f 49 4e 54 |E CHANGI|NG POINT|
|000000d0| 45 52 53 20 4d 41 59 0a | 37 20 52 45 4d 20 20 41 |ERS MAY.|7 REM A|
|000000e0| 46 46 45 43 54 20 50 52 | 4f 47 52 41 4d 20 45 58 |FFECT PR|OGRAM EX|
|000000f0| 45 43 55 54 49 4f 4e 20 | 49 4e 0a 38 20 52 45 4d |ECUTION |IN.8 REM|
|00000100| 20 20 55 4e 50 52 45 44 | 49 43 54 41 42 4c 45 20 | UNPRED|ICTABLE |
|00000110| 57 41 59 53 0a 39 20 49 | 46 4c 43 20 54 48 45 4e |WAYS.9 I|FLC THEN|
|00000120| 20 53 59 53 20 34 38 35 | 30 3a 47 4f 54 4f 20 35 | SYS 485|0:GOTO 5|
|00000130| 31 30 0a 31 30 20 50 52 | 49 4e 54 22 93 0e 20 20 |10.10 PR|INT".. |
|00000140| 20 20 d0 52 49 4e 54 20 | d3 48 4f 50 20 c7 52 41 | .RINT |.HOP .RA|
|00000150| 50 48 49 43 53 20 cc 41 | 42 45 4c 20 cd 41 4b 45 |PHICS .A|BEL .AKE|
|00000160| 52 22 3a 50 52 49 4e 54 | 22 20 20 20 20 20 20 20 |R":PRINT|" |
|00000170| 20 20 20 c2 59 20 c2 52 | 49 41 4e 20 c8 45 59 42 | .Y .R|IAN .EYB|
|00000180| 4f 45 52 00 0a 32 30 20 | 50 52 49 4e 54 22 11 d4 |OER..20 |PRINT"..|
|00000190| 48 49 53 20 50 52 4f 47 | 52 41 4d 20 50 52 49 4e |HIS PROG|RAM PRIN|
|000001a0| 54 53 20 53 54 41 4e 44 | 41 52 44 20 4f 4e 45 20 |TS STAND|ARD ONE |
|000001b0| 49 4e 43 48 22 0a 33 30 | 20 50 52 49 4e 54 22 4d |INCH".30| PRINT"M|
|000001c0| 41 49 4c 49 4e 47 20 4c | 41 42 45 4c 53 20 55 53 |AILING L|ABELS US|
|000001d0| 49 4e 47 20 d0 52 49 4e | 54 20 d3 48 4f 50 20 c7 |ING .RIN|T .HOP .|
|000001e0| 52 41 50 48 49 43 53 00 | 0a 34 30 20 50 52 49 4e |RAPHICS.|.40 PRIN|
|000001f0| 54 22 91 41 4e 44 20 54 | 45 58 54 20 4f 46 20 59 |T".AND T|EXT OF Y|
|00000200| 4f 55 52 20 43 48 4f 49 | 43 45 20 4f 4e 20 41 4e |OUR CHOI|CE ON AN|
|00000210| 20 c5 50 53 4f 4e 20 4f | 52 00 0a 35 30 20 50 52 | .PSON O|R..50 PR|
|00000220| 49 4e 54 22 43 4f 4d 50 | 41 54 41 42 4c 45 20 50 |INT"COMP|ATABLE P|
|00000230| 52 49 4e 54 45 52 2e 00 | 0a 36 30 20 50 52 49 4e |RINTER..|.60 PRIN|
|00000240| 54 22 11 d4 48 49 53 20 | 50 52 4f 47 52 41 4d 20 |T"..HIS |PROGRAM |
|00000250| 49 53 20 50 55 42 4c 49 | 43 20 44 4f 4d 41 49 4e |IS PUBLI|C DOMAIN|
|00000260| 2e 00 0a 37 30 20 50 52 | 49 4e 54 22 11 d0 52 49 |...70 PR|INT"..RI|
|00000270| 4e 54 20 d3 48 4f 50 20 | 49 53 20 41 20 54 52 41 |NT .HOP |IS A TRA|
|00000280| 44 45 4d 41 52 4b 20 4f | 46 20 c2 52 4f 44 45 52 |DEMARK O|F .RODER|
|00000290| 42 55 4e 44 2e 00 0a 38 | 30 20 50 52 49 4e 54 22 |BUND...8|0 PRINT"|
|000002a0| c5 50 53 4f 4e 20 49 53 | 20 41 20 54 52 41 44 45 |.PSON IS| A TRADE|
|000002b0| 4d 41 52 4b 20 4f 46 20 | c5 50 53 4f 4e 20 c1 4d |MARK OF |.PSON .M|
|000002c0| 45 52 49 43 41 2e 00 0a | 39 30 20 50 52 49 4e 54 |ERICA...|90 PRINT|
|000002d0| 22 11 11 11 20 20 20 20 | 20 20 d0 52 45 53 53 20 |"... | .RESS |
|000002e0| 41 4e 59 20 4b 45 59 20 | 57 48 45 4e 20 52 45 41 |ANY KEY |WHEN REA|
|000002f0| 44 59 2e 00 0a 39 35 20 | 47 45 54 58 24 3a 49 46 |DY...95 |GETX$:IF|
|00000300| 58 24 3d 22 22 54 48 45 | 4e 39 35 0a 31 30 30 20 |X$=""THE|N95.100 |
|00000310| 44 49 4d 20 58 25 28 35 | 36 2c 31 31 29 2c 59 25 |DIM X%(5|6,11),Y%|
|00000320| 28 36 2c 38 37 29 2c 4c | 24 28 36 29 2c 46 24 28 |(6,87),L|$(6),F$(|
|00000330| 36 29 2c 46 53 24 28 39 | 29 0a 31 31 30 20 45 24 |6),FS$(9|).110 E$|
|00000340| 3d 43 48 52 24 28 32 37 | 29 0a 31 32 30 20 46 53 |=CHR$(27|).120 FS|
|00000350| 24 28 30 29 3d 45 24 2b | 43 48 52 24 28 36 39 29 |$(0)=E$+|CHR$(69)|
|00000360| 0a 31 33 30 20 46 53 24 | 28 31 29 3d 46 53 24 28 |.130 FS$|(1)=FS$(|
|00000370| 30 29 2b 43 48 52 24 28 | 31 34 29 0a 31 34 30 20 |0)+CHR$(|14).140 |
|00000380| 46 53 24 28 32 29 3d 43 | 48 52 24 28 31 35 29 0a |FS$(2)=C|HR$(15).|
|00000390| 31 35 30 20 46 53 24 28 | 33 29 3d 46 53 24 28 30 |150 FS$(|3)=FS$(0|
|000003a0| 29 2b 45 24 2b 43 48 52 | 24 28 38 33 29 2b 43 48 |)+E$+CHR|$(83)+CH|
|000003b0| 52 24 28 30 29 0a 31 36 | 30 20 46 53 24 28 34 29 |R$(0).16|0 FS$(4)|
|000003c0| 3d 46 53 24 28 30 29 2b | 45 24 2b 43 48 52 24 28 |=FS$(0)+|E$+CHR$(|
|000003d0| 38 33 29 2b 43 48 52 24 | 28 31 29 0a 31 37 30 20 |83)+CHR$|(1).170 |
|000003e0| 46 53 24 28 35 29 3d 46 | 53 24 28 30 29 2b 45 24 |FS$(5)=F|S$(0)+E$|
|000003f0| 2b 43 48 52 24 28 35 32 | 29 0a 31 38 30 20 46 53 |+CHR$(52|).180 FS|
|00000400| 24 28 36 29 3d 46 53 24 | 28 31 29 2b 46 53 24 28 |$(6)=FS$|(1)+FS$(|
|00000410| 35 29 0a 31 39 30 20 46 | 53 24 28 37 29 3d 46 53 |5).190 F|S$(7)=FS|
|00000420| 24 28 32 29 2b 45 24 2b | 43 48 52 24 28 35 32 29 |$(2)+E$+|CHR$(52)|
|00000430| 0a 32 30 30 20 46 53 24 | 28 38 29 3d 46 53 24 28 |.200 FS$|(8)=FS$(|
|00000440| 33 29 2b 46 53 24 28 35 | 29 0a 32 31 30 20 46 53 |3)+FS$(5|).210 FS|
|00000450| 24 28 39 29 3d 46 53 24 | 28 34 29 2b 46 53 24 28 |$(9)=FS$|(4)+FS$(|
|00000460| 35 29 0a 32 32 30 20 45 | 4c 24 3d 45 24 2b 43 48 |5).220 E|L$=E$+CH|
|00000470| 52 24 28 38 34 29 2b 45 | 24 2b 43 48 52 24 28 35 |R$(84)+E|$+CHR$(5|
|00000480| 33 29 2b 43 48 52 24 28 | 31 38 29 2b 45 24 2b 43 |3)+CHR$(|18)+E$+C|
|00000490| 48 52 24 28 37 30 29 2b | 43 48 52 24 28 31 30 29 |HR$(70)+|CHR$(10)|
|000004a0| 2b 43 48 52 24 28 31 33 | 29 0a 32 33 30 20 50 52 |+CHR$(13|).230 PR|
|000004b0| 49 4e 54 22 93 20 20 20 | 20 d0 52 49 4e 54 20 d3 |INT". | .RINT .|
|000004c0| 48 4f 50 20 c7 52 41 50 | 48 49 43 53 20 cc 41 42 |HOP .RAP|HICS .AB|
|000004d0| 45 4c 20 cd 41 4b 45 52 | 22 3a 50 52 49 4e 54 0a |EL .AKER|":PRINT.|
|000004e0| 32 34 30 20 50 52 49 4e | 54 22 c7 52 41 09 00 49 |240 PRIN|T".RA..I|
|000004f0| 43 20 c6 49 4c 45 20 ce | 41 4d 45 20 28 24 20 46 |C .ILE .|AME ($ F|
|00000500| 4f 52 20 c4 49 52 45 43 | 54 4f 52 59 29 00 0a 32 |OR .IREC|TORY)..2|
|00000510| 35 30 20 4c 43 3d 30 3a | 49 4e 50 55 54 20 47 24 |50 LC=0:|INPUT G$|
|00000520| 3a 49 46 20 47 24 3d 22 | 24 22 54 48 45 4e 47 4f |:IF G$="|$"THENGO|
|00000530| 53 55 42 37 35 30 0a 32 | 36 30 20 50 52 49 4e 54 |SUB750.2|60 PRINT|
|00000540| 22 11 c9 4e 50 55 54 20 | cc 41 42 45 4c 20 d4 45 |"..NPUT |.ABEL .E|
|00000550| 58 54 2e 20 20 c6 4f 52 | 20 42 45 53 54 20 52 45 |XT. .OR| BEST RE|
|00000560| 53 55 4c 54 53 2c 22 0a | 32 37 30 20 50 52 49 4e |SULTS,".|270 PRIN|
|00000570| 54 22 53 4b 49 50 20 41 | 4c 54 45 52 4e 41 54 45 |T"SKIP A|LTERNATE|
|00000580| 20 4c 49 4e 45 53 2e 20 | 28 d5 53 45 20 30 2c 32 | LINES. |(.SE 0,2|
|00000590| 2c 34 2c 36 20 46 4f 52 | 00 0a 32 38 30 20 50 52 |,4,6 FOR|..280 PR|
|000005a0| 49 4e 54 22 46 4f 55 52 | 20 4c 49 4e 45 20 4c 41 |INT"FOUR| LINE LA|
|000005b0| 42 45 4c 53 20 41 4e 44 | 20 31 2c 33 2c 35 20 46 |BELS AND| 1,3,5 F|
|000005c0| 4f 52 20 54 48 52 45 45 | 00 0a 32 39 30 20 50 52 |OR THREE|..290 PR|
|000005d0| 49 4e 54 22 4c 49 4e 45 | 53 2e 20 20 cc 49 4e 45 |INT"LINE|S. .INE|
|000005e0| 53 20 57 49 54 48 20 43 | 4f 4d 4d 41 53 20 4f 52 |S WITH C|OMMAS OR|
|000005f0| 20 43 4f 4c 4f 4e 53 20 | 4d 55 53 54 00 0a 33 30 | COLONS |MUST..30|
|00000600| 30 20 50 52 49 4e 54 22 | 91 42 45 20 49 4e 20 51 |0 PRINT"|.BE IN Q|
|00000610| 55 4f 54 45 53 2e 00 0a | 33 31 30 20 50 52 49 4e |UOTES...|310 PRIN|
|00000620| 54 22 11 c1 56 41 49 4c | 41 42 4c 45 20 c6 4f 4e |T"..VAIL|ABLE .ON|
|00000630| 54 53 3a 00 0a 33 32 30 | 20 50 52 49 4e 54 22 20 |TS:..320| PRINT" |
|00000640| 20 20 30 20 3d 20 ce 4f | 52 4d 41 4c 00 0a 33 33 | 0 = .O|RMAL..33|
|00000650| 30 20 50 52 49 4e 54 22 | 20 20 20 31 20 3d 20 c5 |0 PRINT"| 1 = .|
|00000660| 58 50 41 4e 44 45 44 00 | 0a 33 34 30 20 50 52 49 |XPANDED.|.340 PRI|
|00000670| 4e 54 22 20 20 20 32 20 | 3d 20 c3 4f 4e 44 45 4e |NT" 2 |= .ONDEN|
|00000680| 53 45 44 00 0a 33 35 30 | 20 50 52 49 4e 54 22 20 |SED..350| PRINT" |
|00000690| 20 20 33 20 3d 20 d3 55 | 50 45 52 53 43 52 49 50 | 3 = .U|PERSCRIP|
|000006a0| 54 00 0a 33 36 30 20 50 | 52 49 4e 54 22 20 20 20 |T..360 P|RINT" |
|000006b0| 34 20 3d 20 d3 55 42 53 | 43 52 49 50 54 00 0a 33 |4 = .UBS|CRIPT..3|
|000006c0| 37 30 20 50 52 49 4e 54 | 22 20 20 20 35 20 3d 20 |70 PRINT|" 5 = |
|000006d0| c9 54 41 4c 49 43 00 0a | 33 38 30 20 50 52 49 4e |.TALIC..|380 PRIN|
|000006e0| 54 22 20 20 20 36 20 3d | 20 c5 58 50 41 4e 44 45 |T" 6 =| .XPANDE|
|000006f0| 44 20 c9 54 41 4c 49 43 | 00 0a 33 39 30 20 50 52 |D .TALIC|..390 PR|
|00000700| 49 4e 54 22 20 20 20 37 | 20 3d 20 c3 4f 4e 44 45 |INT" 7| = .ONDE|
|00000710| 4e 53 45 44 20 c9 54 41 | 4c 49 43 00 0a 34 30 30 |NSED .TA|LIC..400|
|00000720| 20 50 52 49 4e 54 22 20 | 20 20 38 20 3d 20 d3 55 | PRINT" | 8 = .U|
|00000730| 50 45 52 53 43 52 49 50 | 54 20 c9 54 41 4c 49 43 |PERSCRIP|T .TALIC|
|00000740| 00 0a 39 20 50 52 49 4e | 54 22 20 20 20 39 20 3d |..9 PRIN|T" 9 =|
|00000750| 20 d3 55 42 53 43 52 49 | 50 54 20 c9 54 41 4c 49 | .UBSCRI|PT .TALI|
|00000760| 43 11 00 0a 34 32 30 20 | 46 4f 52 20 41 3d 30 54 |C...420 |FOR A=0T|
|00000770| 4f 36 3a 4c 24 28 41 29 | 3d 22 20 22 3a 50 52 49 |O6:L$(A)|=" ":PRI|
|00000780| 4e 54 22 d4 45 58 54 20 | 46 4f 52 20 4c 49 4e 45 |NT".EXT |FOR LINE|
|00000790| 20 22 41 3b 3a 49 4e 50 | 55 54 20 4c 24 28 41 29 | "A;:INP|UT L$(A)|
|000007a0| 0a 34 33 30 20 50 52 49 | 4e 54 22 c6 4f 4e 54 20 |.430 PRI|NT".ONT |
|000007b0| 46 4f 52 20 4c 49 4e 45 | 20 22 41 3b 3a 49 4e 50 |FOR LINE| "A;:INP|
|000007c0| 55 54 20 46 24 28 41 29 | 0a 34 34 30 20 49 46 56 |UT F$(A)|.440 IFV|
|000007d0| 41 4c 28 46 24 28 41 29 | 29 3e 39 54 48 45 4e 34 |AL(F$(A)|)>9THEN4|
|000007e0| 33 30 0a 34 35 30 20 4e | 45 58 54 0a 34 36 30 20 |30.450 N|EXT.460 |
|000007f0| 4e 4c 24 3d 22 20 22 3a | 49 4e 50 55 54 22 11 ce |NL$=" ":|INPUT"..|
|00000800| 55 4d 42 45 52 20 4f 46 | 20 4c 41 42 45 4c 53 22 |UMBER OF| LABELS"|
|00000810| 3b 4e 4c 24 3a 4e 4c 3d | 56 41 4c 28 4e 4c 24 29 |;NL$:NL=|VAL(NL$)|
|00000820| 0a 34 37 30 20 49 46 20 | 4e 4c 3d 30 54 48 45 4e |.470 IF |NL=0THEN|
|00000830| 39 30 30 0a 34 39 30 20 | 49 46 4c 43 54 48 45 4e |900.490 |IFLCTHEN|
|00000840| 35 31 30 0a 35 30 30 20 | 4f 50 45 4e 38 2c 38 2c |510.500 |OPEN8,8,|
|00000850| 38 2c 47 24 2b 22 2c 50 | 2c 52 22 3a 47 45 54 23 |8,G$+",P|,R":GET#|
|00000860| 38 2c 41 24 3a 43 4c 4f | 53 45 38 0a 35 30 31 20 |8,A$:CLO|SE8.501 |
|00000870| 49 46 53 54 54 48 45 4e | 4c 43 3d 30 3a 50 52 49 |IFSTTHEN|LC=0:PRI|
|00000880| 4e 54 22 11 11 11 20 20 | 20 20 20 c1 20 c4 49 53 |NT"... | . .IS|
|00000890| 4b 20 c5 52 52 4f 52 20 | 48 41 53 20 4f 43 43 55 |K .RROR |HAS OCCU|
|000008a0| 52 45 44 2e 22 3a 47 4f | 53 55 42 38 35 30 3a 47 |RED.":GO|SUB850:G|
|000008b0| 4f 54 4f 35 30 30 0a 35 | 30 32 20 4c 43 3d 2d 31 |OTO500.5|02 LC=-1|
|000008c0| 3a 4c 4f 41 44 20 47 24 | 2c 38 2c 31 0a 35 31 30 |:LOAD G$|,8,1.510|
|000008d0| 20 49 46 46 4f 54 48 45 | 4e 36 37 30 0a 36 35 30 | IFFOTHE|N670.650|
|000008e0| 20 46 4f 3d 2d 31 3a 4f | 50 45 4e 35 2c 34 2c 38 | FO=-1:O|PEN5,4,8|
|000008f0| 0a 36 36 30 20 4f 50 45 | 4e 34 2c 34 2c 37 3a 50 |.660 OPE|N4,4,7:P|
|00000900| 52 49 4e 54 23 34 2c 43 | 48 52 24 28 32 37 29 3b |RINT#4,C|HR$(27);|
|00000910| 43 48 52 24 28 36 35 29 | 3b 43 48 52 24 28 38 29 |CHR$(65)|;CHR$(8)|
|00000920| 0a 36 37 30 20 46 4f 52 | 20 45 3d 31 20 54 4f 20 |.670 FOR| E=1 TO |
|00000930| 4e 4c 0a 36 38 30 20 46 | 4f 52 20 41 3d 30 54 4f |NL.680 F|OR A=0TO|
|00000940| 36 3a 50 52 49 4e 54 23 | 34 2c 43 48 52 24 28 32 |6:PRINT#|4,CHR$(2|
|00000950| 37 29 3b 43 48 52 24 28 | 37 36 29 3b 43 48 52 24 |7);CHR$(|76);CHR$|
|00000960| 28 38 38 29 3b 43 48 52 | 24 28 30 29 3b 3a 43 3d |(88);CHR|$(0);:C=|
|00000970| 32 31 37 36 30 2b 28 41 | 2a 38 38 29 3a 44 3d 43 |21760+(A|*88):D=C|
|00000980| 2b 38 37 0a 36 39 30 20 | 46 4f 52 20 42 3d 43 54 |+87.690 |FOR B=CT|
|00000990| 4f 44 3a 50 52 49 4e 54 | 23 34 2c 43 48 52 24 28 |OD:PRINT|#4,CHR$(|
|000009a0| 50 45 45 4b 28 42 29 29 | 3b 3a 4e 45 58 54 0a 37 |PEEK(B))|;:NEXT.7|
|000009b0| 30 30 20 50 52 49 4e 54 | 23 34 2c 22 20 22 46 53 |00 PRINT|#4," "FS|
|000009c0| 24 28 56 41 4c 28 46 24 | 28 41 29 29 29 3b 3a 50 |$(VAL(F$|(A)));:P|
|000009d0| 52 49 4e 54 23 35 2c 4c | 09 0a 37 31 30 20 50 52 |RINT#5,L|..710 PR|
|000009e0| 49 4e 54 23 35 2c 43 48 | 52 24 28 31 30 29 3b 43 |INT#5,CH|R$(10);C|
|000009f0| 48 52 24 28 31 30 29 0a | 37 32 30 20 4e 45 58 54 |HR$(10).|720 NEXT|
|00000a00| 3a 47 4f 54 4f 34 36 30 | 0a 37 35 30 20 4f 50 45 |:GOTO460|.750 OPE|
|00000a10| 4e 38 2c 38 2c 30 2c 22 | 24 30 22 3a 4e 24 3d 43 |N8,8,0,"|$0":N$=C|
|00000a20| 48 52 24 28 30 29 3a 58 | 24 3d 4e 24 0a 37 36 30 |HR$(0):X|$=N$.760|
|00000a30| 20 47 45 54 23 38 2c 41 | 24 2c 41 24 2c 41 24 2c | GET#8,A|$,A$,A$,|
|00000a40| 41 24 2c 41 24 2c 41 24 | 0a 37 37 30 20 47 45 54 |A$,A$,A$|.770 GET|
|00000a50| 23 38 2c 41 24 3a 49 46 | 20 41 24 3d 22 22 54 48 |#8,A$:IF| A$=""TH|
|00000a60| 45 4e 37 39 30 0a 37 38 | 30 20 58 24 3d 58 24 2b |EN790.78|0 X$=X$+|
|00000a70| 41 24 3a 47 4f 54 4f 37 | 37 30 0a 37 39 30 20 50 |A$:GOTO7|70.790 P|
|00000a80| 52 49 4e 54 22 11 20 20 | 20 20 22 20 58 24 0a 38 |RINT". | " X$.8|
|00000a90| 31 30 20 47 45 54 23 38 | 2c 41 24 2c 41 24 3a 49 |10 GET#8|,A$,A$:I|
|00000aa0| 46 20 41 24 3d 22 22 54 | 48 45 4e 20 43 4c 4f 53 |F A$=""T|HEN CLOS|
|00000ab0| 45 20 38 3a 47 4f 54 4f | 38 35 30 0a 38 32 30 20 |E 8:GOTO|850.820 |
|00000ac0| 47 45 54 23 38 2c 41 24 | 2c 42 24 3a 42 24 3d 53 |GET#8,A$|,B$:B$=S|
|00000ad0| 54 52 24 28 41 53 43 28 | 41 24 2b 4e 24 29 2b 41 |TR$(ASC(|A$+N$)+A|
|00000ae0| 53 43 28 42 24 2b 4e 24 | 29 2a 32 35 36 29 0a 38 |SC(B$+N$|)*256).8|
|00000af0| 33 30 20 47 45 54 23 38 | 2c 41 24 3a 49 46 20 41 |30 GET#8|,A$:IF A|
|00000b00| 24 3d 22 22 54 48 45 4e | 20 50 52 49 4e 54 22 20 |$=""THEN| PRINT" |
|00000b10| 20 22 42 24 3a 42 24 3d | 22 22 3a 47 4f 54 4f 38 | "B$:B$=|"":GOTO8|
|00000b20| 31 30 0a 38 34 30 20 42 | 24 3d 42 24 2b 41 24 3a |10.840 B|$=B$+A$:|
|00000b30| 47 4f 54 4f 38 33 30 0a | 38 35 30 20 43 4c 4f 53 |GOTO830.|850 CLOS|
|00000b40| 45 38 3a 50 52 49 4e 54 | 22 11 11 c7 52 41 50 48 |E8:PRINT|"...RAPH|
|00000b50| 49 43 20 c6 49 4c 45 20 | ce 41 4d 45 20 28 24 20 |IC .ILE |.AME ($ |
|00000b60| 46 4f 52 20 c4 49 52 45 | 43 54 4f 52 59 29 22 0a |FOR .IRE|CTORY)".|
|00000b70| 38 38 30 20 49 4e 50 55 | 54 20 47 24 3a 49 46 20 |880 INPU|T G$:IF |
|00000b80| 47 24 3d 22 24 22 54 48 | 45 4e 47 4f 53 55 42 37 |G$="$"TH|ENGOSUB7|
|00000b90| 35 30 3a 47 4f 54 4f 38 | 35 30 0a 38 39 30 20 52 |50:GOTO8|50.890 R|
|00000ba0| 45 54 55 52 4e 0a 39 30 | 30 20 50 52 49 4e 54 22 |ETURN.90|0 PRINT"|
|00000bb0| 11 c1 20 4e 45 57 20 4c | 41 42 45 4c 20 28 d9 2f |.. NEW L|ABEL (./|
|00000bc0| ce 29 3f 22 0a 39 31 30 | 20 47 45 54 41 24 3a 49 |.)?".910| GETA$:I|
|00000bd0| 46 41 24 3d 22 59 22 4f | 52 41 24 3d 22 d9 22 54 |FA$="Y"O|RA$="."T|
|00000be0| 48 45 4e 39 35 30 0a 39 | 32 30 20 49 46 20 41 24 |HEN950.9|20 IF A$|
|00000bf0| 3d 22 4e 22 4f 52 41 24 | 3d 22 ce 22 54 48 45 4e |="N"ORA$|="."THEN|
|00000c00| 31 30 30 30 0a 39 33 30 | 20 47 4f 54 4f 39 31 30 |1000.930| GOTO910|
|00000c10| 0a 39 35 30 20 50 52 49 | 4e 54 22 11 d3 41 4d 45 |.950 PRI|NT"..AME|
|00000c20| 20 c7 52 41 50 48 49 43 | 20 28 d9 2f ce 29 3f 22 | .RAPHIC| (./.)?"|
|00000c30| 0a 39 36 30 20 47 45 54 | 41 24 3a 49 46 41 24 3d |.960 GET|A$:IFA$=|
|00000c40| 22 59 22 4f 52 41 24 3d | 22 d9 22 54 48 45 4e 32 |"Y"ORA$=|"."THEN2|
|00000c50| 36 30 09 0a | |60.. | |
+--------+-------------------------+-------------------------+--------+--------+
